Sub prueba_Loc()
    Dim fichero As String
    fichero = "C:\Temp\NotasLineInput.txt"
    Open fichero For Binary As #1
    Dim linea As String
    Do While Not EOF(1)
    Debug.Print "Posicin (" & Loc(1) & ")"
      Line Input #1, linea
      Debug.Print " Linea (" & linea & ")"
    Loop
    Debug.Print "Posicin (" & Loc(1) & ")"
    Close #1
End Sub
